home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / docs / lists / DevGuide.lha / DevGuide / MyCheck.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-02-09  |  1.7 KB  |  66 lines
  1. /*************************************************
  2.  * myCheck.rexx to split $Check1 and $Check2     *
  3.  * V2.0 © Heiko Schröder 98/99                   *
  4.  *************************************************
  5.  check1=system
  6.  check2=LibGuide */
  7.  
  8. Parse ARG check1","check2
  9. check2=Delstr(check2,1,1)
  10. address command '"SetEnv" Check2='check2
  11.  
  12. pos1  =pos(" ",check1)
  13. check1=Delstr(check1,1,pos1)
  14. address command '"SetEnv" Version='check1
  15. punkt1=lastpos(".",check1)
  16.  
  17. pos2  =lastpos(" ",check2)
  18. check2=Delstr(check2,1,pos2)
  19. punkt2=lastpos(".",check2)
  20.  
  21. If punkt1~=0 then Ganzzahl1=Delstr(check1,punkt1)
  22. If punkt2~=0 then Ganzzahl2=Delstr(check2,punkt2)
  23.  
  24. If punkt1=0 then Ganzzahl1=-1
  25. If punkt2=0 then Ganzzahl2=-1
  26.  
  27. If Ganzzahl1<Ganzzahl2 then do
  28.    address command '"SetEnv" Checkdev1='0
  29.    address command '"SetEnv" Checkdev2='1
  30.    Exit
  31. End
  32. If Ganzzahl1>Ganzzahl2 then do
  33.    address command '"SetEnv" Checkdev1='1
  34.    address command '"SetEnv" Checkdev2='0
  35.    Exit
  36. End
  37.  
  38. If punkt1~=0 then Dezzahl1=Delstr(check1,1,punkt1)
  39. If punkt2~=0 then Dezzahl2=Delstr(check2,1,punkt2)
  40.  
  41. If Dezzahl1<Dezzahl2 then do
  42.    address command '"SetEnv" Checkdev1='0
  43.    address command '"SetEnv" Checkdev2='1
  44.    Exit
  45. End
  46. If Dezzahl1>Dezzahl2 then do
  47.    address command '"SetEnv" Checkdev1='1
  48.    address command '"SetEnv" Checkdev2='0
  49.    Exit
  50. End
  51. If Dezzahl1=Dezzahl2 then do
  52.    address command '"SetEnv" Checkdev1='1
  53.    address command '"SetEnv" Checkdev2='1
  54.    If length(Dezzahl1)>length(Dezzahl2) then do
  55.       address command '"SetEnv" Checkdev1='0
  56.       address command '"SetEnv" Checkdev2='1
  57.    End
  58.    If length(Dezzahl1)<length(Dezzahl2) then do
  59.       address command '"SetEnv" Checkdev1='1
  60.       address command '"SetEnv" Checkdev2='0
  61.    End
  62.    Exit
  63. End
  64.  
  65. Exit
  66.